unit punnet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dbbase, DB, StdCtrls, Buttons, Mask, RzEdit, RzButton, Grids,
  DBGrids, RzDBGrid, ExtCtrls;

type
  Tpunnetfrm = class(TdbbaseFrm)
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure IniParam;override;
    procedure QFindRcd;override;
    procedure PrintRpt;override;
    procedure FindRcd; override;
    procedure AddRcd;  override;
    procedure EditRcd; override;
    procedure DelRcd;  override;
    //procedure CutCnnt; override;
    procedure FrmExit; override;
  end;

  procedure punnetManage(Parent:TWincontrol);

implementation

{$R *.dfm}

uses
  datmd;

procedure punnetManage(Parent:TWincontrol);
var
  MyPunnetfrm:TPunnetFrm;
begin
  MyPunnetfrm:=TPunnetFrm.Create(Parent);
  MyPunnetfrm.Parent:=Parent;
  MyPunnetfrm.Show;
end;


Procedure Tpunnetfrm.IniParam;
begin
  DataSource.DataSet:=datmdfrm.Punnet;
  DataSource.DataSet.Active:=True;
end;

procedure Tpunnetfrm.QFindRcd;
begin


end;

procedure Tpunnetfrm.PrintRpt;
begin


end;

procedure Tpunnetfrm.FindRcd; 
begin


end;

procedure Tpunnetfrm.AddRcd;  
begin


end;

procedure Tpunnetfrm.EditRcd; 
begin


end;

procedure Tpunnetfrm.DelRcd;  
begin


end;

procedure Tpunnetfrm.FrmExit; 
begin
  DataSource.DataSet.Close;
  DataSource.DataSet.Active:=False;
  Close;
end;


end.
